home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 November / MACPOWER-1997-11.ISO.7z / MACPOWER-1997-11.ISO / AMUG / MUSIC / bol-processor-271-data.sit / bol-processor-271-data / BP2 examples / BP2 data / -gr.koto3 < prev    next >
Text File  |  1997-04-03  |  2KB  |  60 lines
  1. // Bol Processor version BP2.7
  2. // Grammar file saved as '-gr.koto3'. Date: Jeu 3 Avr 1997 -- 2:30
  3. // File ﾒ-gr.koto3ﾓ
  4. // A sort of unidimensional cellular automaton producing a sort of Turkish music!
  5.  
  6. // To get the real sound you need a D50 or D550 synth
  7. // Use sound patch C-36 "Koto" on the PN-D50-O2 memory card
  8. // or I-21 "Koto" with the D50 dump file enclosed with BP2.
  9. // If you use a different synth you'll probably get bad sound
  10. // but it's ok for a demo :-)
  11.  
  12. // These are related files that will automatically be loaded
  13. -gl.GeneralMIDI
  14. -tb.koto3
  15. -se.koto3
  16. -ho.abc1 
  17. -in.abc1
  18.  
  19. // The following INIT selects the ﾒKotoﾓ patch and sets OMNI ON.
  20. // The synth's keyboard must be on MIDI channel 16 in order to interact with BP2.
  21.  
  22. INIT: Play _script(MIDI set basic channel to 16) Koto _script(MIDI Omni mode ON channel 16)
  23.  
  24.  
  25. // Here comes the grammar
  26.  
  27. RND
  28. gram#1[1] <100> S --> _vel(127) _volume(40) X X X X Y X X X X Y X X X X
  29. gram#1[2] <K9> X --> a        [Weight is controlled by K9, see Interaction]
  30. gram#1[3] X  --> b
  31. -------------------
  32. SUB
  33. gram#2[1] Y --> Y
  34. gram#2[2] #? ?1 --> #? ?1  [Keep leftmost symbol]
  35. gram#2[3] ?1 #? --> ?1 #?  [Keep rightmost symbol]
  36. gram#2[4] } --> }
  37. gram#2[5] , --> ,
  38. gram#2[6] <5> a --> a
  39. gram#2[7] <30> a b a --> a a
  40. gram#2[8] <100> #({) a b a --> {5,a c b,f f f - f}
  41. gram#2[9] <5> b --> b
  42. gram#2[10] <30> #({) b a b #(}) --> b b
  43. gram#2[11] <100> #({) b a b --> {3,b a b c b a,f a f}
  44. gram#2[12] <100-10> #({) #a b #(}) --> #a c b
  45. gram#2[13] c c c -->  c a c
  46. gram#2[14] c a c --> b a b
  47. gram#2[15] <50> ?1 ?1 ?2 ?3 ?4 ?4 --> ?2 ?3
  48. gram#2[16] <K9> ?1 ?1 ?1 --> ?1
  49. gram#2[17] <K9> ?1 ?1 --> ?1
  50. --------------------
  51. RND
  52. gram#3[1] <40> Y --> <<f>>
  53. gram#3[2] <50> Y --> <<chik>>
  54. gram#3[3] <1-1> ? #? --> ? Silence <<sync>> #? [Apply only once.]
  55. gram#3[4] <50> Silence --> - - - - - 
  56. gram#3[5] <15> Silence --> - - - - 
  57. gram#3[6] <8> Silence --> - - - 
  58. gram#3[7] <8> Silence --> - - 
  59.  
  60. // That's all folks!